home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1994
/
MacHack 1994.toast
/
MacHack™94
/
Talks & Papers
/
Timothy Knox
/
Open Prolog
/
Samples
/
Tak
< prev
Wrap
Text File
|
1994-06-24
|
170b
|
11 lines
tak(A,B,C,C) :-
A=<B,!.
tak(A,B,C,D) :-
tak1(A,B,C,E),!,
tak1(B,C,A,F),!,
tak1(C,A,B,G),!,
tak(E,F,G,D).
tak1(A,B,C,D) :-
E is A-1,
tak(E,B,C,D).